SIAD - Laborator nr. 7 


Scopul acestui laborator este de a realiza conexiunea între interfaţa grafică din Visual 
Basic şi baza de date multidimensională care se află pe serverul OLAP generat de SQL Analysis 
Manager. Modalitatea cea mai utilizată de conectare este prin intermediul obiectelor de tip ADO 
(ActiveX Data Object), iar pentru bazele de date multidimensionale avem obiecte de tip ADO 
MD (ActiveX Data Object MultiDimensional). Figura următoare oferă o imagine generală asupra 


modului în care ADO MD oferă acces la datele multidimensionale. 


ActiveConnection OpenSchema 


Recordset i 
(Cube metadata) 


Figura nr. 1 — Accesul la datele multidimensionale prin ADO MD 


Odată conectaţi la o sursă de date multidimensională, putem avea acces la metadatele care 
descriu structura multidimensională şi de asemenea putem accesa datele efective. Aceste date 
sunt receptate într-un obiect de tip Cellset, printr-un proces similar de receptare a datelor 


relaționale într-un obiect ADO de tip Recordset. 


Obiectul Cellset 
Obiectul de tip Cellset reprezintă setul de date n-dimensional returnat de o interogare 
SELECT de tip MDX. Fiecare celulă stochează valoarea care se află la intersecția membrilor 


dimensiunilor. Obiectul Cellset operează ca un array n-dimensional. 
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Figura nr. 2 — Obiectul Cellset şi obiectele subordonate 


Proprietăţile şi metodele clasei Cellset 


Cele mai uzuale proprietăţi şi metode ale clasei Cellset sunt următoarele: 


Proprietate/Metodă Descriere 
ActiveConnection Proprietate ce face referire la un connection string ADO MD 
Source Proprietate ce conține interogarea SELECT MDX care este 


folosită pentru a genera cellset-ul curent 


Open Metodă ce permite executarea interogării pe server după 


setarea proprietăților ActiveConnection şi Source 


Close Metodă care eliberează resursele ocupate de un obiect Cellset 


Filter Axis Proprietate de tip read-only care returnează un obiect de tip 
Axis care listează membrii dimensiunilor referite în clauza 


WHERE. Axele de filtrare nu sunt conţinute în colecția Axes. 


State Proprietate care poate avea 2 valori: 
e 1 (adStateOpen) — Cellset-ul este deschis 
e 0 (adStateClosed) — Cellset-ul este închis 


Exemplu: 
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In exemplul curent ne propunem deschiderea unui cellset; ca operațiune prealabilă, 


trebuie activată referinţa către biblioteca obiectelor de tip MDX din meniul Project/References. 


Available References: OK 


[_] Kodak Image Admin Control a Cancel 
Kodak Image Edit Control 


Kodak Image Scan Control | 


Kodak Image Thumbnail Control Browse... 
LayoutDTC 1.0 Type Library l 

ILM Library a| 
[C LogDrive 1.0 Type Library 
Microsoft Access 9.0 Object Library Priority 
Microsoft Active Server Pages Object Library 
Microsoft ActiveMovie Control + 
Microsoft Activex Data Objects (Multi-dimensional) 2, 
Microsoft ActiveX Data Objects 2.0 Library 
Microsoft ActiveX Data Objects 2.1 Library 

icrosoft Activex Data Obiects 2,5 Library pF. 

Lă 


Microsoft ActiveX Data Objects (Multi-dimensional) 2.5 Library ——————————— 


Location: C:\Program Files\Common Files!Systemjada!msadomd, dl 
Language: Standard 


Figura nr. 3 — Activarea referinţei la biblioteca de obiecte multidimensionale 
În codul sursă, mai întâi se deschide un catalog prin setarea proprietăţii 
ActiveConnection a obiectului de tip Catalog; stringul de conectare trebuie să permită 
deschiderea unei conexiuni valide la serverul OLAP. Conexiunea conține diverse date de 
identificare: 
e tipul serverului (Provider): MSOLAP; 
e sursa de date (serverul OLAP pe care se lucrează): Localhost (sau numele efectiv al 
serverului, aşa cum apare în SQL Analysis Manager); 
e catalogul la care se va face conexiunea (baza de date OLAP): Vanzari. 
Apoi se stabileşte proprietatea Source a obiectului Cellset cu o interogare SELECT MDX, 
iar proprietatea ActiveConnection este setată identic cu ActiveConnection a obiectului Catalog. 
În final se apelează metoda Open a obiectului Cellset care generează primirea rezultatului 


interogării MDX. 


Dim catBazaDate AS New ADOMD.Catalog 

Dim cstRezultat As NEW ADOMD.Cellset 

catBazaDate. ActiveConnection = “Provider=MSOLAP;Data Source=Localhost;” & _ 

“Initial Catalog=Vanzari;” 

cstRezultat.Source=”"SELECT  /([Measures].[Store Sales] ), ([Measures].[Store Cost])!” &_ “ON 
COLUMNS, { |Produs].[ Product Family ].Members } ON ROWS FROM Vanzari” 


cstRezultat.ActiveConnection = catBazaDate.ActiveConnection 
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cstRezultat.Open 


În acest moment, în cstRezultat s-a primit rezultatul interogării MDX lansate prin metoda 
Open. Ceea ce este interesant este faptul că au fost recepționate atât datele, conform figurii 


următoare, cât şi metadatele referitoare la setul de celule. 


Store Cost 
48,836.21 19,477.23 


409,035.59 163,270.72 
Non-Consumable 107,366.33 42,879.28 


Figura nr. 4 — Datele din Cellset-ul cstRezultat 
Deşi nu sunt vizibile la momentul actual, valorile cellset-ului returnat se află memorate în 


obiectul cstRezultat, de unde pot fi extrase şi prelucrate de către aplicaţie. 


Axe, Poziţii, Membri 

Un obiect Cellset conţine o colecţie numită Axes, fiecare axă (Axis) din cadrul colecţiei 
conține o colecție de poziții (Positions), iar fiecare poziție conţine o colecţie de mebri 
(Members). Aceste colecţii definesc împreună caracteristicile datelor returnate. 

Axes 

Colecţia Axes este o colecţie de obiecte de tip Axis; fiecare obiect Axis reprezintă o axă 
ce proiectează membrii uneia sau mai multor dimensiuni, aşa cum sunt definiți în interogarea 
SELECT MDX care a fost lansată asupra serverului OLAP. 

Positions 

Colecţia Positions este o colecţie de obiecte de tip Position. Fiecare obiect Position 
reprezintă un punct (un tuplu) aflat la intersecția axelor setului de celule. Fiecare poziţie în cadrul 
axelor reprezintă o combinaţie unică de membri ai dimensiunilor specificate în interogarea MDX 
folosită pentru a genera cellset-ul. 

Members 

Colecţia Members este o colecţie de obiecte de tip Member. Fiecare obiect Member 
reprezintă un membru al unei poziţii (al unui tuplu). Pentru o poziţie dată, vor fi atâţia membri 
câte dimensiuni sunt în cadrul axelor. 

Pentru interogarea anterioară, axa COLUMNS va avea două poziţii şi colecţia Members 


pentru fiecare poziţie va conţine un obiect Member: Store Sales şi Store Cost. Axa ROWS va 
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avea trei poziţii şi pentru fiecare poziţie va exista un obiect de tip Member care va conţine 


valorile Food, Drink, Non-Consumable. 
Pentru o interogare care generează rezultatul din figura următoare, axa ROWS va avea 
trei poziţii, iar colecţia Members va coţine pentru prima poziţie valorile USA şi Food, pentru a 


doua USA şi Drink, iar pentru a treia USA şi Non-Consumable. 


191,940.00 


24,597.00 
Hon-Consurn| 50,236.00 


Figura nr. 5 — Interogare care generează valori multiple în colecția Members 

Accesarea unei celule individuale 

O celulă individuală poate fi accesată folosind metoda Item a obiectului de tip Cellset. 
Această metodă este metoda implicită (default) a obiectului Cellset. Când se returnează o celulă 
folosind metoda Item, trebuie specificată locaţia celulei în unul din următoarele trei moduri: 

e folosind o listă cu numerele poziţiilor axelor, în forma Cellset.Item (x,y.2....). Prima axă 
(COLUMNS) are numărul 0, a doua (ROWS) are numărul 1,.... 

e folosind o listă de nume a membrilor pentru fiecare poziţie. Într-o axă, membrii trebuie listaţi 
în ordinea crescătoare a imbricării lor (de la exterior către interior). Problema este că 
specificarea unei celule prin folosirea numelor membrilor nu este suportată de provider-ul 
MSOLAP. 

e Folosind poziţiile ordinale din cadrul unui cellset. Fiecare celulă are o valoare ordinală unică; 
de exemplu, într-un cellset cu 4 coloane, valoarea ordinală a primei celule este zero, valoarea 
ordinală a ultimei celule de pe primul rând este 3, iar valoarea ordinală a primei celule de pe 
rândul a doilea este 4. 

Deşi modalitatea cea mai naturală este să considerăm cellset-ul ca fiind un array n- 
dimensional, celulele sunt de fapt stocate intern în manieră liniară. Fiecare celulă are o 
coordonată unică în interiorul array-ului, coordonată ce corespunde valorii ordinale. Indexul 
celulei poate fi aflat prin proprietatea Ordinal a obiectului de tip Cell. 

Se recomandă ca de regulă să se folosească o listă de coordonate ale axelor (x, y, z, ...). 
Fiecare obiect de tip Position are proprietatea Ordinal care identifică poziţia sa în axă. Se poate 
folosi această valoare pentru a indica ce grup de celule să fie selectat de-a lungul axelor. 


Exemplu: 


Dim catBazaDate As New ADOMD.Catalog 
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Dim cstRezultat As New ADOMD.Cellset 
Dim XPos As ADOMD Position 

Dim YPos As ADOMD Position 

Dim mbr As ADOMD.Member 


catBazaDate. ActiveConnection = "Provider=MSOLAP;Data Source=Localhost;" & _ 
"Initial Catalog=Ovidiu;" 


cstRezultat.Source = "select (([produse].[ Product Family].Members)! ON COLUMNS," & _ 
"CrossJoin([timp].| Year].Members, [Clent].Children) ON ROWS " & _ 
"From vanzari "& _ 
"Where ([Measures].[ Store Sales])" 


cstRezultat.ActiveConnection = catBazaDate.ActiveConnection 


cstRezultat.Open 


"Afisez titlurile coloanelor (numele membrilor) 
Debug. Print , 
For Each XPos In cstRezultat.Axes(0).Positions 
For Each mbr In XPos.Members 
Debug.Print mbr.Caption, 
Next 
Next 


Debug. Print 'Acum procesez liniile 
For Each Y Pos In cstRezultat. Axes(1).Positions 
'A fisez titlurile liniilor (numele mebrilor) 
For Each mbr In YPos.Members 
Debug.Print mbr.Caption & " "; 
Next 
Debug.Print , 
'Afisez valorile celulelor 
For Each XPos In cstRezultat.Axes(0).Positions 
Debug.Print cstRezultat.Item(XPos.Ordinal, Y Pos.Ordinal). Value, 
Next 
Debug.Print 
Next 
End Sub 


Rezultatul arată în maniera următoare: 


Drink Food Non-Consumable 
1997 Canada Null Null Null 
1997 Mexico Null Null Null 
1997 USA Null Null Null 
1998 Canada 770.16 7024.33 1834.39 
1998 Mexico 4112.6 35079.3 9430.17 
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1998 USA 5793.55 44593.69 11522.65 


În exemplul anterior, putem folosi numărul poziţiei sau numerele ordinale pentru a adresa 
celula are conține vânzările pentru Drink în 1998 în Canada: 
CstRezultat.Item(0,3) sau 
CstRezultat.ltem(9) 


Valorile celulelor (conţintul lor) pot fi accesate în două maniere: 

e Folosind proprietatea Value pentru a accesa conținutul. Această proprietate returnează o 
valoare de tip Variant. 

e Folosind proprietatea FormattedValue pentru a obține valoarea formatată. De exemplu, 
dacă proprietatea Value returnează 332, valoarea formatată pentru un tip de dată currency 
va fi $332. Astfel, dacă în exemplul anterior folosim 

Debug. Print cstRezultat. Item(ĂPos.Ordinal, YPos. Ordinal). Formatted Value, 


vom obţine următorul rezultat (a se remarca diferenţa față de rezultatul precedent). 


Drink Food Non-Consumable 
1997 Canada 
1997 Mexico 
1997 USA 
1998 Canada 770.16 7,024.33 1,834.39 
1998 Mexico 4,112.60 35,079.30 9,430.17 
1998 USA 5,793.55 44,593.69 11,522.65 


O altă manieră de a accesa datele şi metadatele din cubul multidimensional este 
următoarea: 


Dimaxs As ADOMD.Axis 
For i = 0 To cstRezultat.Axes(0).Positions.Count - 1 

Debug. Print cstRezultat. Axes(0).Positions(i).Members(0).Caption & " "; 

Debug.Print 

Set axs = cstRezultat.Axes(1) 

For j = 0 To axs.Positions.Count - 1 

Debug.Print " " &  axs.Positions(J).Members(0).Caption & " " & 
axs.Positions(j).Members(1).Caption _ 
;" " & cstRezultat(i, j).Formatted Value 

Next 

Next 


Rezultatul execuţiei acestei secvențe în contextul unui proiect va fi generat astfel: 


Drink 
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1997 Canada 

1997 Mexico 

1997 USA 

1998 Canada 770.16 


1998 Mexico 4,1 12.60 

1998 USA 5,793.55 
Food 

1997 Canada 

1997 Mexico 

1997 USA 

1998 Canada 7,024.33 

1998 Mexico 35,079.30 

1998 USA 44,593.69 
Non-Consumable 

1997 Canada 

1997 Mexico 

1997 USA 

1998 Canada 1,834.39 

1998 Mexico 9,430.17 

1998 USA 11,522.65 


Positions:0,1.2 


| 


Non-Consuma 


Positions:0 


„1,2, 3,4, 770.16 7,024,33 1,834.39 
5 DNNN% 


2.60. 35,079.30 9,430.17 
11,522.65 


`~ 
cstRezultat 
EXEMPLU 
CstRezultat.Axes(1).Positions(4).Members(1) 


Conţinutul celulei se poate accesa astfel: 
estRezultat.Item(0.4) sau cstRezultat.Item(12) 


Members: 0,1 / 
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Figura nr. 6 — Componentele de bază ale CellSet-ului 


